1 REM Modified 7/3/97 for the Tandy 1000TL by J.L. Hayes
5 GOSUB 7000
7 DATA 230,77,180,95,200,90,230,98,210,81,220,87,186,88,208,96,193,80,215,75
10 SCREEN 0,0,0:KEY OFF:WIDTH 40:CLS:CLEAR
15 A$=CHR$(14)
16 C=1
17 COLOR 7,0,0
20 FOR H=1 TO 6:SCREEN ,,H,7:CLS
30 LOCATE 1,1,0:COLOR 13:PRINT STRING$(40,14);
35 LOCATE 22,1:COLOR 13:PRINT STRING$(40,14);
40 FOR T=1 TO 22:LOCATE T,1:PRINT A$;:LOCATE T,40:PRINT A$;:NEXT T
50 COLOR 5:FOR T=H TO 40 STEP 6:LOCATE 1,T:PRINT A$;:NEXT T
55 FOR T=3+H TO 22 STEP 6:LOCATE T,40:PRINT A$;:NEXT T
60 COLOR 5:FOR T=41-H TO 1 STEP -6:LOCATE 22,T:PRINT A$;:NEXT T
65 FOR T=8-H TO 22 STEP 6:LOCATE T,1:PRINT A$;:NEXT T
66 IF H=5 THEN LOCATE 2,40:PRINT A$;
67 IF H=6 THEN LOCATE 3,40:PRINT A$;
68 GOSUB 72
70 NEXT H
71 GOTO 80
72 LOCATE 5,10:COLOR 5:PRINT"--";:COLOR 13:PRINT"====";:COLOR 15:PRINT"MUSIC BOX";:COLOR 13:PRINT"====";:COLOR 5:PRINT"--"
73 LOCATE 3,19:COLOR 8:PRINT"The":COLOR 7:LOCATE 4,16:PRINT"IBM PC-jr"
74 LOCATE 16,5:COLOR 13:PRINT"Enter song number, or 0 to quit."
75 LOCATE 7,8:COLOR 7:PRINT"1) Dr. Who Theme":LOCATE 8,8:PRINT"2) Time Bandits Theme":LOCATE 9,8:PRINT"3) Toccata":LOCATE 10,8:PRINT"4) Not the Moonlight Sonata":LOCATE 11,8:PRINT"5) Raiders of the Lost Ark":LOCATE 12,8:PRINT"6) Axel F."
76 LOCATE 13,8:PRINT"7) `Max Headroom Story' Theme"
77 LOCATE 14,8:PRINT "8) Clarinet Polka"
78 LOCATE 18,15:COLOR 9:PRINT"D A V R O S":LOCATE 20,16:COLOR 7:PRINT"DOWNLOADS"
79 RETURN
80 FOR T=1 TO 6:SCREEN ,,,T:FOR F=1 TO 25
90 A$=INKEY$:IF A$<>""THEN 100
93 C=C+1
98 NEXT F,T:GOTO 80
100 REM
105 IF A$="0"THEN CLS:SCREEN 0,1,0:CLS:LOCATE 11,15:COLOR 9:PRINT"D A V R O S":LOCATE 13,16:COLOR 15:PRINT"DOWNLOADS":SYSTEM
110 ON VAL(A$) GOTO 1615,2030,2500,3075,3520,4000,5020,6000
120 GOTO 93
1615 SOUND ON
1620 A$="P2L16O3V15FG8V14GV13GV12GV11GV10GV9GV8GV7GV6GV5GV4GV3GV2GP2"
1625 PLAY"MBO2T140L12CP12CCP12CCP12CCP12CCP12CCP12CD+P12D+D+P12D+","MBT140P1P1","MLMBT140P1P1"
1630 PLAY"L12CP12CCP12CCP12CCP12CCP12CCP12CD+P12D+D+P12D+","L4P2P2P2O2G>G+","P1P1"
1635 PLAY"L12CP12CCP12CCP12CCP12CGP12GGP12GGP12GGP12G","G1P2A+2","XA$;"
1640 PLAY"L12CP12CCP12CCP12CCP12CGP12GGP12GGP12GGP12G","G1P1","XA$;"
1645 PLAY"CP12CCP12CCP12CCP12CD+P12D+D+P12D+<GP12GGP12G","GD+<G2A+2G+8MLG8G4","P1P1"
1650 PLAY">CP12CCP12CCP12CCP12C<GP12GGP12GGP12GGP12G","MNG4FMLG4G6G+12MLG4MNG6>G+12G2","P1P1"
1655 PLAY"O1GP12GGP12GA+P12A+A+P12A+","T140P1","P1"
1660 PLAY"O1GP12GGP12GGP12GGP12GGP12GGP12G>D+P12D+D+P12D+","L4P2P2P2O2G>G+"
1665 PLAY"L12CP12CCP12CCP12CCP12CGP12GGP12GGP12GGP12G","G1P2A+2","XA$;"
1670 PLAY"L12CP12CCP12CCP12CCP12CGP12GGP12GGP12GGP12G","G1P1","XA$;"
1675 PLAY"CP12CCP12CCP12CCP12CD+P12D+D+P12D+<GP12GGP12G","GD+<G2A+2G+8MLG8G4","P1P1"
1680 PLAY">CP12CCP12CCP12CCP12C<GP12GGP12GGP12GGP12G","MNG4FMLG4G6G+12MLG4MNG6>G+12G2","P1P1"
1685 PLAY"O1GP12GGP12GA+P12A+A+P12A+","T140P1","P1"
1690 PLAY"O1GP12GGP12GGP12GGP12GGP12GGP12GA+P12A+A+P12A+","P1P1"
1695 PLAY"O2D+P12D+D+P12D+D+P12D+D+P12D+D+P12D+D+P12D+D+P12D+D+P12D+","G1P2D+G","P1P1"
1700 PLAY"O2<A+P12A+A+P12A+>D+P12D+D+P12D+D+P12D+D+P12D+D+P12D+D+P12D+","F4P12D+12D12MLD+2MND+4P2D+4","P1P1"
1705 PLAY"O2<G+P12G+G+P12G+>D+P12D+D+P12D+<G+P12G+G+P12G+>D+P12D+D+P12D+",">C4<P12A+12G+12A+2>C12<A+12>MLC12MNC4<A+12G+12MLA+12MNA+6G12","P1P1"
1710 PLAY"DP12DDP12DDP12DDP12DCP12CCP12CCP12CCP12C","MLF2F4MNF12D+12D12D+1","P1P1"
1715 PLAY"<GP12GGP12GGP12GGP12GGP12GGP12GA+P12A+A+P12A+","MSP1P2O3A+6A+4A+12","V15MSP1P2O3G6G4G12"
1720 PLAY"GP12GGP12GGP12GGP12GGP12GGP12G>D+P12D+D+P12D+","G6G1P12P4<G4>G+4","<B6B1P12P4P2"
1725 PLAY"MNL12CP12CCP12CCP12CCP12CGP12GGP12G<GP12GGP12G>","MNG1P2<G4>G+4","P1P1"
1730 PLAY"L12CP12CCP12CCP12CCP12CGP12GGP12GGP12GGP12G","G1P1","P1P1"
1735 A$="L16V15CV14CV13CV12CV11CV10CV9CV8CV7CV6CV5CV4CV3CV2CV1C"
1740 PLAY"O1XA$;","MLO2XA$;","MSO3XA$;"
1745 COLOR 7:CLS:COLOR 0
1750 FOR T=1 TO 500:NEXT T:SCREEN 0,0,0:RUN 10
2030 SOUND ON
2040 PLAY"T110V13O3MLC1<G2","T110V13O3MLE2MNE4E16D16C8<B2","T110V15O2MLG1>D2"
2050 PLAY"F4F8G8","B-4B-8>C8","D8<B-16>C16D8E8"
2060 PLAY"A4>F2F4","C1","F8C8MLA4MNA8F16G16A8F8"
2070 PLAY"V13C4MNC8C8","MNV13E4E4","V13G2"
2080 PLAY"ML<G4MNG8G8","V15<B4B4","D2"
2090 A$="V15B-V14B-V13B-V12B-V11B-V10B-V9B-V8B-V7B-V6B-V5B-V4B-V3B-V2B-V1B-B-"
2100 IF PLAY(0)+PLAY(1)+PLAY(2)>4 THEN 2100 ELSE PLAY"MNO3L8XA$;","MNO4L8XA$;","MNO5L8XA$;"
2130 PLAY"T110V13O3MLC1<G2","T110V13O3MLE2MNE4E16D16C8<B2","T110V15O2MLG1>D2"
2140 PLAY"F4F8G8","B-4B-8>C8","D8<B-16>C16D8E8"
2150 PLAY"A4>F2F4","C1","F8C8MLA4MNA8G16F16A8F8"
2160 PLAY"V13C4MNC8C8","MNV13E4E4","V13G2"
2170 PLAY"ML<G4MNG8G8","<B4B4","D2"
2180 IF PLAY(0)+PLAY(1)+PLAY(2)>0 THEN 2180
2190 FOR T=15 TO 4 STEP -2:NOISE 5,T,4:NEXT T
2220 FOR D=1 TO 400:NEXT D
2230 PLAY"T190V11MLO3G2G4","T190V11O4G2G4","T190V15O4G4<G8>C8E8C8":FOR D=1 TO 410:NEXT D
2240 PLAY"G+2G+4","G+2G+4","O4G+4<G+8>C+8F8C+8":FOR D=1 TO 410:NEXT D
2250 PLAY"A2A4","A2A4","O4A4<A8>D8F+8D8":FOR D=1 TO 410:NEXT D
2260 PLAY"A+2A+4","A+2A+4","O4A+4<A+8>D+8G8D+8":FOR D=1 TO 410:NEXT D
2270 PLAY"T130MLB1B1","MLT130B1B2L16G+F+EF+G+F+EF+",">MLT130B1L16G+F+EF+G+F+EF+G+F+EF+G+F+EF+"
2280 PLAY"O1MNL4A+A+AA","MNO2L4A+A+AA","MLO4L16A+GD+<A+A+GD+<A+A>CFAA>CFA"
2290 PLAY"A+A+AA","A+A+AA","A+GD+<A+A+GD+<A+A>CFAA>CFA"
2300 PLAY"A+A+A","A+A+A","A+GD+<A+A+GD+<A+A>CFA"
2310 PLAY"A+AG+GF+FEE-2","A+AG+GF+FEE-2","L12A+G<A+>A4G+F<G+>G4F+D+<F+>F4EC<E>D+2"
2320 IF PLAY(0)=0 THEN FOR T=1 TO 1000:NEXT T:CLS:SCREEN 0,0,0:RUN 10:ELSE 2320
2500 SOUND ON
2515 PLAY"MBO3ML","MBO4ML","MBML"
2520 PLAY"A16G16A1G8F8E8D8D-2D1P2","A16G16A1G8F8E8D8D-2D1P2","P8P1P2P1P1"
2525 PLAY"<A16G16A1E4F4D-4D1P2","<A16G16A1E4F4D-4D1P2","P8P1P1P4P1"
2530 PLAY"<A16G16A1G8F8E8D8D-2D1P2","<A16G16A1G8F8E8D8D-2D1P2","P8P1P2P1P1"
2535 PLAY"O1","O1","O1"
2540 PLAY"D4","P4","P4"
2545 PLAY"D-4","D4","P4"
2550 PLAY"D-4","E4","P4"
2555 PLAY"D-4","E4","G4"
2560 PLAY"B-4","E4","G4"
2565 PLAY"B-4",">C+4","G4"
2570 PLAY"B-4","C+4",">E4"
2575 PLAY">G4","C+4","E4"
2580 PLAY"G1","A+1","E1"
2585 PLAY"O2D2D2D1P2","O2G2E2F+1P2","O2A2A2A1P2"
2590 PLAY"O1MSL19D-DED-DED-DED-DP19EFGEFGEFGEFP19GAA+GAA+GAA+GAP19P2","O2MSL19D-DED-DED-DED-DP19EFGEFGEFGEFP19GAA+GAA+GAA+GAP19P4","P2P2"
2595 PLAY"O1MSL19D-DED-DED-DED-DP19EFGEFGEFGEFP19GAA+GAA+GAA+GAP19P2","O3MSL19D-DED-DED-DED-DP19EFGEFGEFGEFP19GAA+GAA+GAA+GAP19P2","P2P2"
2600 P$="AGA+EGA+DFADFACEGCEG<A+>DF<A+>DF<A>CE<A>CE<GA+>D<GA+>D<FA>C<FA>C<EGA+EGA+DFADFAD-EGD-EGD-MLD6"
2605 PLAY"MNO2L20XP$;","MNO3L20XP$;","O2MSL20XP$;"
2610 PLAY"O2D-6","O2P6","O2D6"
2615 PLAY"D-6","E6","P6"
2620 PLAY"D-6","E6","G6"
2625 PLAY"B-6","E6","G6"
2630 PLAY"B-6",">C+6","G6"
2635 PLAY"B-6","C+6",">E6"
2640 PLAY">G6","C+6","E6"
2645 PLAY"G1","A+1","E1"
2650 A$="ADA>D<A>D<A>D<"
2655 PLAY"T170V15O1L8XA$;XA$;XA$;XA$;","T170V13MSO4L4DDDDDDDDDDDDDDDD","T170V15P1"
2660 PLAY"XA$;XA$;XA$;XA$;","V11MSO4L4DDDDDDDDDDDDDDDD","O2V15L8A>DEFDEFGEFGAFGAA+GAFGEFDED-D<AA+GA4P8"
2665 PLAY"XA$;XA$;XA$;XA$;A","DDDDDDDDDDDDDDDDP8","O2V15L8A>DEFDEFGEFGAFGAA+GAFGEFDED-D<AA+GA4P4"
2670 PLAY"O2L4A+A+AAGGFFEEDDD-2D-2","O4L8P4P8A+P4P8AP4P8GP4P8FP4P8EP4P8DD-1","L16O3GA+EP16GA+EP16FADP16FADP16EGCP16EGCP16DF<A+>P16DF<A+>P16CE<A>P16CE<A>P16<A+>D<GP16A+>D<GP16A4A4A4A4"
2675 PLAY"O2L4A+A+AAGGFFEEDDD-4D-4D-4D-8","O4L8P4P8A+P4P8AP4P8GP4P8FP4P8EP4P8DMLD-2D-4MND-8","L16O3GA+EP16GA+EP16FADP16FADP16EGCP16EGCP16DF<A+>P16DF<A+>P16CE<A>P16CE<A>P16<A+>D<GP16A+>D<GP16A4A4A4A8"
2680 PLAY"O1L8XA$;XA$;XA$;XA$;","V11MSO4L4DDDDDDDDDDDDDDDD","O2V15L8A>DEFDEFGEFGAFGAA+GAFGEFDED-D<AA+GA4P8"
2685 PLAY"XA$;XA$;XA$;XA$;","DDDDDDDDDDDDDDDD","O2V15L8A>DEFDEFGEFGAFGAA+GAFGEFDED-D<AA+GA4P8"
2690 PLAY"XA$;XA$;","L16O1GG+AA+B>CC+DD+EFF+GG+AA+B>CC+DD+EFF+GG+AA+B>CC+D","L16O2GG+AA+B>CC+DD+EFF+GG+AA+B>CC+D+EFF+GG+AA+B>CC+D"
2695 PLAY"T170O2MND4D4D4P8MND4D4D8D4D4","T170O3MLP4F4F2F1","T170MLO3D4P8A+8A+2A+1"
2700 PLAY"O2C4C4C4P8C4C4C8C4C4","P4E4E2E1","C4P8A8A2A1"
2705 PLAY"O1A+4A+4A+4P8A+4A+4A+8A+4A+4","P4D4D2D1","<A+4>P8G8G2G1"
2710 PLAY"O1A4A4A4P8A4A4A8A4A4","P4E4E2E1","C+4P8A8A2A1"
2715 PLAY"O2D4D4D4P8MND4D4D8D4D4","MLP4F4F2F1","D4P8A+8A+2A+1"
2720 PLAY"O2MNC4C4C4P8C4C4C8C4C4","P4E4E2E1","C4P8A8A2A1"
2725 PLAY"O1MNA+4A+4A+4P8A+4A+4A+8A+4A+4","P4D4D2D1","<A+4>P8G8G2G1"
2730 PLAY"O1MNA4A4A4P8A4A4A8A4A4","P4E4E2E1","C+4P8A8A2A1"
2735 PLAY"MLT170P8O2D4P8C4P8<A+4P8A2P4","MLT170P8O3D4P8C4P8<A+4P8A2P4","MLT170P1P1"
2740 PLAY"P8O2D4P8C4P8<A+4P8A2P4","P8O3D4P8C4P8<A+4P8A2P4","P8O3F4P8E4P8D4P8D-2P4"
2745 PLAY"P8O2D4P8C4P8<A+4P8A4P8G4P8","P8O3D4P8C4P8<A+4P8>C+4P8<A+4>P8","P8O3A+4P8A4P8G4P8A4P8G4P8"
2750 PLAY"A4P8A+4P8A4P8MLA2A4A8","C+4P8<A+4P8>C+4<P8MLA2A4A8","A4P8G4P8A4MLP8D2D4D8"
2755 PLAY"A1A1","A1A1","D2C+2C+4<B2B4>"
2760 PLAY"A1A1","A1A1","C+8<B8>C+1C+2C+4"
2765 PLAY"O2P2MLF1F2","O2A2MLA1A2","O3P2MLD2D4E4F2"
2770 PLAY"F2A+2A+1","A2>D2D1","D2G2G4A4A+2"
2775 PLAY"A+2>D2D1","D2F2F1","G2A2G2A2"
2780 PLAY"D2D-2D-1","F1F1","A2A2G2A2"
2785 PLAY"D-2<A1A4A2A4A2A4A1A1","F2D1D4D2D4D2D4D1D1","A2G1G4F2F4E2E4F1F1"
2825 COLOR 15:CLS:RUN 10
3075 SOUND ON
3080 PLAY"V11MB","MB","MB"
3085 A$="DGA+DGA+DGA+DGA+"
3090 B$="D+GA+D+GA+D+GA+D+GA+"
3095 C$="D+G>C<D+G>C<D+G>C<D+G>C<"
3100 D$="DGA+DGA+DG-ADG-A"
3105 PLAY"O3L8XA$;XA$;","P2P2P2","P2P2P2"
3110 PLAY"XA$;XA$;","MLO2L16V11G2V10GV9GV8GV7GV6GV5GV4GV3GV2GP2P2P2V11G4P8","MLO1L16V11G2V10GV9GV8GV7GV6GV5GV4GV3GV2GP2P2P2V11G4P8"
3115 PLAY"XA$;XA$;","MLO2L16V11F2V10FV9FV8FV7FV6FV5FV4FV3FV2FP2P2P2V11F4P8","MLO1L16V11F2V10FV9FV8FV7FV6FV5FV4FV3FV2FP2P2P2V11F4P8"
3120 PLAY"XB$;","MLO2V12D+4D+8D+16V11D+V10D+V9D+V8D+V7D+V6D+V5D+V4D+V3D+V2D+P4P8","MLO1V12D+4D+8D+V11D+V10D+V9D+V8D+V7D+V6D+V5D+V4D+V3D+V2D+P4P8"
3125 PLAY"XC$;","MLO2V15C4CV14C13V12CV11CV10CV9CV8CV7CV6CV5CV4CV3CV2CP4P8","MLO1V15C4CV14CV13CV12CV11CV10CV9CV8CV7CV6CV5CV4CV3CV2CP4P8"
3130 PLAY"XD$;XD$;","MLO2V12D4D8DV11DV10DV9DV8DV7DV6DV5DV4DV3DV2DP4P8","MLO1V12D4D8DV11DV10DV9DV8DV7DV6DV5DV4DV3DV2DP4P8"
3135 FOR T=1 TO 2500:NEXT T
3140 PLAY"MNMBV15L16","MLMBV15L2","MNO2MBV15"
3145 A$="CDD+DCDD+DCDD+DCDD+D"
3150 PLAY"O4XA$;XA$;","P1P1","P1P1"
3155 PLAY"XA$;XA$;","O5C<GD+D","P1P1"
3160 PLAY"XA$;XA$;","CDG+G","P1P1"
3165 PLAY"XA$;XA$;XA$;XA$;",">C<GD+DCDG+G","L8C2CDD+CG+G+GGCCD4>C2<DD+DCG+G+GGD16D+16F16D+16D4"
3170 PLAY"MLO3C2C2C2>C4P4<","MLO3P2D+2D+2>D+4P4<","MLO3P2P2G2>G4P4<"
3175 PLAY"MLO3C2C2C2>C4P4","MLO3P2D+2D+2>D+4P4","MLO3P2P2G+2>G+4P4"
3180 PLAY"MNL16CP16CCCP16CP16","MNL16D+P16D+D+D+P16D+P16","MNL16GP16GGGP16GP16"
3185 PLAY"MNL16CP16CCCP16CP16","MNL16D+P16D+D+D+P16D+P16","MNL16G+P16G+G+G+P16G+P16"
3190 PLAY"L32C<BAGFEDC","L32D+DC<A+G+GFD+","L32GG-EDC<BAG"
3195 PLAY"L32C<BAGFEDC","L32D+DC<A+G+GFD+","L32GG-EDC<BAG"
3200 PLAY">>L32C<BAGFEDC",">>L32D+DC<A+G+GFD+",">>L32G+GFD+C+C<A+G+"
3205 PLAY"L32C<BAGFEDC","L32D+DC<A+G+GFD+","L32G+GFD+C+C<A+G+"
3210 PLAY"O3MLC1","O3MLF1","O3MLG1"
3215 PLAY"O3C1","O3D1","O3G1"
3220 PLAY"O3C1C1","O3E1E1","O3G1G1"
3225 FOR T=1 TO 500:NEXT T
3240 RUN 10
3520 SOUND ON
3530 A$="CCCP16P8CCCCCP16P4"
3540 B$="FFFP16P8FFFFFP16P4"
3550 PLAY"V13O2T140L16XA$;","MLT140P1","V13O1T140L16XA$;"
3560 PLAY"XA$;","O3P2P4E6F12","O1XA$;"
3570 FOR T=1 TO 2
3580 PLAY"XA$;","G8>C8C2<D6E12","O1XA$;"
3590 PLAY"XA$;","F2F4G6A12","O1XA$;"
3600 PLAY"XA$;","B8>F8F2<A6B12","O1XA$;"
3610 PLAY"C4<B4>C2",">C4D4E4<E6F12","C4<B4>C2"
3620 PLAY"XA$;","G8>C8C2D6E12","XA$;"
3630 PLAY"XB$;","F2F4<MNG6MLG12","XB$;"
3640 PLAY"L4GGGG",">E4D6<G12>E4D6<G12>","L4GGGG"
3650 PLAY"L4GGGG","E4D6<G12>F4E6D12","L4GGGG"
3660 PLAY"L16XA$;","C2<F4E6D12","L16XA$;"
3670 IF T=1 THEN PLAY"XA$;","C2P4E6F12","XA$;"
3680 IF T=2 THEN PLAY"XA$;","C2P4MNG6G12","XA$;"
3690 NEXT T
3710 PLAY"V11O2MLD1C1","V15>D2P8<G8>D8C16<B16>C2P4<F6F12","O4V10G8<G16G-16G4>G8<G16G-16G4>F8<F16E16F4>F8<F16E16F4"
3720 PLAY"D1C1",">D2P8<G8>D8C16<B16>C2P4<F6F12","O4G8<G16G-16G4>G8<G16G-16G4>F8<F16E16F4>F8<F16E16F4"
3730 PLAY"O2C1<A+1",">C2P8<F8>C8<A+16A16A+2P4G6A+12","O4F8<F16E16F4>F8<F16E16F4>D+8<D+16D16D+4>D+8<D+16D16D+4"
3740 PLAY"G+16G16MLF8F4MNF2","G+16G16MLF8MNF2MLE8MNE16F16",">C+8<C+16C16C+4>C+8<C+16C16C+4"
3750 PLAY"MN>C4P8C4C4C8<MLA+1","L16G8CCC8G8CCC8G8FEMLF1MN","MNC4P8C4C4C8<MLA+1"
3760 PLAY"MN>C4P8C4C4C8<MLA+1","L16G8CCC8G8CCC8G8FEMLF1MN",">MNC4P8C4C4C8<MLA+1"
3770 PLAY"MN>C4P8C4C4C8<A+4P8A+4A+4A+8","L16G8CCC8G8CCC8G8FEF8<A+A+A+8>F8<A+A+A+8>F8D+D",">MNC4P8C4C4C8<A+4P8A+4A+4A+8"
3780 PLAY"V13G+1","MLD+2D+4E6F12","V13G+1"
3790 PLAY"O2XA$;","G8>C8C2<D6E12","O1XA$;"
3800 PLAY"O2L16XA$;","F2F4G6A12","O1L16XA$;"
3810 PLAY"XA$;","B8>F8F2<A6B12","O1XA$;"
3820 PLAY"C4<B4>C2",">C4D4E4<E6F12","C4<B4>C2"
3830 PLAY"XA$;","G8>C8C2D6E12","XA$;"
3840 PLAY"XB$;","F2F4<MNG6MLG12","XB$;"
3850 PLAY"L4GGGG",">E4D6<G12>E4D6<G12>","L4GGGG"
3860 PLAY"L4GGGG","E4D6<G12>F4E6D12","L4GGGG"
3870 PLAY"L16XA$;","C2<F4E6D12","L16XA$;"
3880 PLAY"O2C4C12C12C12C4","MNO3C4C12C12C12C4","O1C4C12C12C12C4"
3890 FOR T=1 TO 2100:NEXT T:CLS:SCREEN 0,0,0:RUN 10
4000 SOUND ON
4030 DIM F$(4),B$(4)
4040 F$(1)="D+4MLF+MNF+16D+D+16G+D+C+"
4050 F$(2)="D+4MLA+8MNA+16D+D+16BA+F+"
4060 F$(3)="D+A+>D+<D+16C+C+16<A+>FMLD+"
4070 F$(4)="MND+P2P4P8"
4080 B$(1)="D+4>MLD+MND+16C+C+16C+<A+C+"
4090 B$(2)="D+4>D+4P16D+16<A+>C+D+"
4100 B$(3)="<B4MLBMNB16>C+C+16<A+>C+D+"
4110 B$(4)="<D+4>D+4P16C+16<A+G+F+"
4114 PLAY"MBV15O3L8XF$(1);XF$(2);XF$(3);XF$(4);","MBV13O1L8P1P1P1P1","MBP1P1P1P1"
4115 PLAY"XF$(1);XF$(2);XF$(3);XF$(4);","P1P1P1P1","P1P1P1P1"
4116 PLAY"P1P1P1P1","MBV13O1L8XB$(1);XB$(2);XB$(3);XB$(4);","P1P1P1P1"
4117 PLAY"P1P1P1P1","MBV13O1L8XB$(1);XB$(2);XB$(3);XB$(4);","P1P1P1P1"
4120 PLAY"XF$(1);XF$(2);XF$(3);XF$(4);","XB$(1);XB$(2);XB$(3);XB$(4);","P1P1P1P1"
4130 PLAY"XF$(1);XF$(2);XF$(3);XF$(4);","XB$(1);XB$(2);XB$(3);XB$(4);","P1P1P1P1"
4140 PLAY"MSO3P8GGG16G+G+G+16G+G+","MSV15O3P8A+A+A+16>C+C+C+16CC","L8O1V15XB$(1);"
4150 PLAY"P8GGG16G+G+16G+G<B","<P8A+A+A+16>C+C+16C<A+F+","XB$(2);"
4160 PLAY"P8BBBB16>C+C+C+C+16","P8F+F+F+F+16G+G+G+G+16","XB$(3);"
4170 PLAY"C+GGGF16GGP8P16","G+A+A+A+G+16A+A+P8P16","XB$(4);"
4180 PLAY"MSO3P8GGG16G+G+G+16G+G+","MSV15O3P8A+A+A+16>C+C+C+16CC","L8O1V15XB$(1);"
4190 PLAY"P8GGG16G+G+16G+G<B","<P8A+A+A+16>C+C+16C<A+F+","XB$(2);"
4200 PLAY"P8BBBB16>C+C+C+C+16","P8F+F+F+F+16G+G+G+G+16","XB$(3);"
4210 PLAY"C+GGGF16GGP8P16","G+A+A+A+G+16A+A+P8P16","XB$(4);"
4220 PLAY"MBV15O3L8XF$(1);XF$(2);XF$(3);XF$(4);","MBV13O1L8XB$(1);XB$(2);XB$(3);XB$(4);","MBP1P1P1P1"
4230 PLAY"V15O3L8XF$(1);XF$(2);XF$(3);XF$(4);","V13O1L8XB$(1);XB$(2);XB$(3);<D+4>D+4P16D+16C+D+F","P1P1P1P1"
4240 'SOUND ON:PLAY"L8","L8","L8"
4250 PLAY"MSO3F+6P48C+6P48F+6P48C+6P48F+8C+8","O1MLF+8P16>F+16MSF+2<F+4","P1"
4260 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLD+8P16>D+16MSD+2<D+4","P1"
4270 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLE8P16>E16MSE2<E4","P1"
4280 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLC+8P16>C+16MSC+2<C+4","P1"
4290 PLAY"MSO3F+6P48C+6P48F+6P48C+6P48F+8C+8","O1MLF+8P16>F+16MSF+2<F+4","P1"
4300 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLD+8P16>D+16MSD+2<D+4","P1"
4310 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLE8P16>E16MSE2<E4","P1"
4320 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLC+8P16>C+16MSC+2<C+4","P1"
4330 R$="O4C+<A+G+F+P16G+P16A+>C+8<A+8G+8F+8"
4340 R1$="O4C+<BG+F+P16G+P16B>C+8<B8G+8F+8"
4350 PLAY"MSO3F+6P48C+6P48F+6P48C+6P48F+8C+8","O1MLF+8P16>F+16MSF+2<F+4","L16XR$;"
4360 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLD+8P16>D+16MSD+2<D+4","XR$;"
4370 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLE8P16>E16MSE2<E4","XR1$;"
4380 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLC+8P16>C+16MSC+2<C+4","XR1$;"
4390 PLAY"MSO3F+6P48C+6P48F+6P48C+6P48F+8C+8","O1MLF+8P16>F+16MSF+2<F+4","L16XR$;"
4400 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLD+8P16>D+16MSD+2<D+4","XR$;"
4410 PLAY"O3F+6P48C+6P48F+6P48C+6P48F+8C+8","MLE8P16>E16MSE2<E4","XR1$;"
4420 PLAY"O3F+6P48C+6P48F+6P48P6P48P4","MLC+8P16>C+16MSP4<P2","XR1$;"
4430 PLAY"MSO3P8GGG16G+G+G+16G+G+","MSV15O3P8A+A+A+16>C+C+C+16CC","L8O1V15XB$(1);"
4440 PLAY"P8GGG16G+G+16G+G<B","<P8A+A+A+16>C+C+16C<A+F+","XB$(2);"
4450 PLAY"P8BBBB16>C+C+C+C+16","P8F+F+F+F+16G+G+G+G+16","XB$(3);"
4460 PLAY"C+GGGF16GGP8P16","G+A+A+A+G+16A+A+P8P16","XB$(4);"
4470 PLAY"MSO3P8GGG16G+G+G+16G+G+","MSV15O3P8A+A+A+16>C+C+C+16CC","L8O1V15XB$(1);"
4480 PLAY"P8GGG16G+G+16G+G<B","<P8A+A+A+16>C+C+16C<A+F+","XB$(2);"
4490 PLAY"P8BBBB16>C+C+C+C+16","P8F+F+F+F+16G+G+G+G+16","XB$(3);"
4500 PLAY"C+GGGF16GGP8P16","G+A+A+A+G+16A+A+P8P16","XB$(4);"
4510 PLAY"O1XB$(1);XB$(2);XB$(3);XB$(4);","MLO3C+32D+32D+16D+4<A+32>C+32C+16C+4C+8<G+32A+32A+16A+8A+4F+32G+32G+16G+8G+8F32F+32F+16F+8C+32D+32D+16D+8D+4P4P16P1","P1P1P1P1"
4520 PLAY"MBV15O3L8XF$(1);XF$(2);XF$(3);XF$(4);","MBV13O1L8XB$(1);XB$(2);XB$(3);XB$(4);","MBP1P1P1P1"
4530 PLAY"MFV15O3L8XF$(1);XF$(2);XF$(3);XF$(4);","MFV13O1L8XB$(1);XB$(2);XB$(3);XB$(4);","MFP1P1P1P1"
4540 COLOR 7,0,0:CLS:FOR T=15 TO 1 STEP -1:NOISE 4,T,1:NOISE 4,0,1:NEXT T:FOR D=1 TO 600:NEXT D:RUN 10
5020 SOUND ON:FOR D=1 TO 100:NEXT D
5030 PLAY"V14O4T135L4","V15T135O3L8","V13T135O2L4"
5040 F1=261.63:F2=523.25:F3=293.66:FOR T=1 TO 6:SOUND F1,1,15,0:SOUND F2,1,15,1:SOUND F3,1,15,2:F1=F1-10:F2=F2-10:F3=F3-10:NEXT T:SOUND F1,2,15,0:SOUND F2,2,15,1:SOUND F3,2,15,2
5050 PLAY"CP4CP4CP4CP4","D+CD+GG+4G2P2P4","CCCCCCCC"
5060 PLAY"CP4CP4CP4CP4","P1P4D+4A+4G4","CCCCCCCC"
5070 PLAY"CP4C<P4BP4BP4","D+CD+GG+4G2P2P4","CCC<BBBBB"
5080 PLAY"BP4BP4BP4BP4","P1P2P4P8G8","BBBBBBBB"
5090 PLAY"O1L8MLV15G+V14G+V13G+V12G+V11G+V10G+V9G+V8G+","MLG+4A+4>C4D8D+8","O2L8MLV15G+8V14G+V13G+V12G+V11G+V10G+V9G+V8G+"
5100 PLAY"V15A+V14A+V13A+V12A+V11A+V10A+V9A+V8A+","D4D+4D8C8<A+4","V15A+V14A+V13A+V12A+V11A+V10A+V9A+V8A+"
5110 PLAY">V15CV14CV13CV12CV11CV10CV9CV8C","G+4A+4>C4D8D+8",">V15CV14CV13CV12CV11CV10CV9CV8C"
5120 PLAY"<V15BV14BV13BV12BV11BV10BV9BV8B","F4G4G+2","V15DV14DV13DV12DV11DV10DV9DV8D"
5130 H$="V5GV6GV7GV8GV9GV10GV15G4V13GV12GV11GV10GV9GV8GV7GV6G"
5140 PLAY"L8O2XH$;","D+CD+GG+4G2P2P4","V13MNL4CCCCCCCC"
5150 PLAY"XH$;","P1P4D+4A+4G4","CCCCCCCC"
5160 PLAY"XH$;","D+CD+GG+4G2P2P4","CCC<BBBBB"
5170 PLAY"V12<MLG1G1","<P1P2P4P8G8","BBBBBBBB"
5180 PLAY"O1L8MLV15G+V14G+V13G+V12G+V11G+V10G+V9G+V8G+","MLG+4A+4>C4D8D+8","L8MLV15G+8V14G+V13G+V12G+V11G+V10G+V9G+V8G+"
5190 PLAY"V15A+V14A+V13A+V12A+V11A+V10A+V9A+V8A+","D4D+4D8C8<A+4","V15A+V14A+V13A+V12A+V11A+V10A+V9A+V8A+"
5200 PLAY">V15CV14CV13CV12CV11CV10CV9CV8C","G+4A+4>C4D8D+8",">V15CV14CV13CV12CV11CV10CV9CV8C"
5210 PLAY"<V15BV14BV13BV12BV11BV10BV9BV8B","F4G4G+2","V15DV14DV13DV12DV11DV10DV9DV8D"
5220 W1$="V8G+V9G+V10G+V11G+V12G+V13G+V14G+V15G+":W2$="V15G+V14G+V13G+V12G+V11G+V10G+V9G+V8G+"
5230 X1$="V8GV9GV10GV11GV12GV13GV14GV15G":X2$="V15GV14GV13GV12GV11GV10GV9GV8G"
5240 Y1$="V8FV9FV10FV11FV12FV13FV14FV15F":Y2$="V15FV14FV13FV12FV11FV10FV9FV8F"
5250 PLAY"L16MLO2XW1$;XW2$;XW1$;XW2$;","L16MLO3XW2$;XW1$;XW2$;XW1$;","V15O3MLG+2MNG+4P8D+8G+4G4F4D+4"
5260 PLAY"L16MLO2XX1$;XX2$;XX1$;XX2$;","L16MLO3XX2$;XX1$;XX2$;XX1$;","MLD+4MND+8D16C16MLD4MND8D8G+4G4D+4D4"
5270 PLAY"L16MLO2XY1$;XY2$;XY1$;XY2$;","L16MLO3XY2$;XY1$;XY2$;XY1$;","MLD4MND8D+8C2P2D4D+4"
5280 PLAY"L16MLO2XX1$;XX2$;XX1$;XX2$;","L16MLO3XX2$;XX1$;XX2$;XX1$;","MLD+4MND+8D16C16MLD2P1"
5290 PLAY"L8O2XH$;",">V15L8D+CD+GG+4G2P2P4","V13MNL4CCCCCCCC"
5300 PLAY"XH$;","P1P4D+4A+4G4","CCCCCCCC"
5310 PLAY"XH$;","D+CD+GG+4G2P2P4","CCC<BBBBB"
5320 PLAY"V12<MLG1G1","<<P1P2P4P8G8","BBBBBBBB"
5330 PLAY"O1L8MLV15G+V14G+V13G+V12G+V11G+V10G+V9G+V8G+","MLG+4A+4>C4D8D+8","L8MLV15G+8V14G+V13G+V12G+V11G+V10G+V9G+V8G+"
5340 PLAY"V15A+V14A+V13A+V12A+V11A+V10A+V9A+V8A+","D4D+4D8C8<A+4","V15A+V14A+V13A+V12A+V11A+V10A+V9A+V8A+"
5350 PLAY">V15CV14CV13CV12CV11CV10CV9CV8C","G+4A+4>C4D8D+8","V15>G+4A+4>C4D8D+8"
5360 PLAY"<V15BV14BV13BV12BV11BV10BV9BV8B","F4G4G+2","F4G4G+2"
5370 PLAY">V15D2","A+2","A+2"
5380 PLAY"V15O3MLC1C1","V15O3MLG1G1","V15O4MLC1C1"
5390 IF PLAY(0)+PLAY(1)+PLAY(2)=0 THEN FOR D=1 TO 1700:NEXT D:COLOR 15,0,0:CLS:RUN 10:ELSE 5390
6000 'Polka
6004 '**************************
6008 '* by David B. Scollin    *
6012 '*    9690 Laughlin Way   *
6016 '*    Redwood Valley, Ca. *
6020 '*    95470               *
6024 '**************************
6060 SOUND ON
6064 TIME=1
6068 PLAY "MBT120","T120","T120"
6072 A$="O3 MN V15 B-4 B-8 B-8 B-4 P8 MS V6 O2 F16 E-16"
6076 B$="O3 MN V15 F4 F8 F8 F4 P4"
6080 C$="O0 MN V15 B-4 B-8 B-8 B-4 P4"
6084 PLAY A$,B$,C$
6088 A$="ML D16 F16 MS B-16 O3 D16 O2 ML V7 F16 V8 B-16 O3 MS V9 D16 F16"
6092 B$="ML V6 O2 F16 O3 F8 F16 MN D8 O2 B-8"
6096 C$="V6 O0 B-8 O1 F8 O0 F8 O1 F8"
6100 PLAY A$,B$,C$
6104 A$="MN V10 D8 D8 D32 V11 E-32 D32 E-32 V12 MS D16 F16"
6108 B$="V7 F8 V8 F8 V9 ML F16 V10 G16 V11 MN F16 V12 D16"
6112 C$="O0 V7 B-8 V8 O1 F8 O0 V9 F8 V10 B-8"
6116 PLAY A$,B$,C$
6120 A$="MN D32 E-32 D32 E-32 MS D16 F16 MN D32 E-32 D32 E-32 MS D16 F16"
6124 B$="F8 B-8 F8 B-8"
6128 C$="V12 B-8 O1 F8 O0 F8 O1 F8"
6132 PLAY A$,B$,C$
6136 A$="ML F16 E-16 MS C16 O2 A16 MN F8 V6 ML F24 G24 F24"
6140 B$="A8 O3 F8 F8 P8"
6144 C$="C8 O1 A8 A8 A8"
6148 PLAY A$,B$,C$
6152 A$="E-16 F16 MS A16 O3 C16 O2 ML V7 F16 V8 A16 V9 O3 MS C16 V10 E-16"
6156 B$="V6 ML O2 F16 O3 E-16 E-8 MN C8 O2 A8"
6160 C$="V6 O0 A8 O1 F8 O0 F8 O1 F8"
6164 PLAY A$,B$,C$
6168 A$="V11 MN A8 A8 A32 B-32 A32 B-32 V12 MS G16 E-16"
6172 B$="V7 F8 V9 F8 ML V10 F16 G16 V11 MN E-16 C16"
6176 C$="V7 C8 V9 F8 O0 V10 F8 O1 V11 F8"
6180 PLAY A$,B$,C$
6184 A$="MN A32 E-32 A32 E-32 MS G16 E-16 MN A32 E-32 A32 E-32 MS G16 E-16"
6188 B$="V12 E-8 F8 O3 C8 O2 A8"
6192 C$="V12 C8 F8 O0 F8 O1 F8"
6196 PLAY A$,B$,C$
6200 A$="ML G16 F16 MS D16 O2 B-16 MN F8 V6 F16 E-16"
6204 B$="B-8 O3 F8 F8 P8"
6208 C$="O0 B-8 O1 B-8 B-8 B-8"
6212 PLAY A$,B$,C$
6216 A$="ML D16 F16 MS B-16 O3 D16 V7 ML O2 F16 V8 B-16 V9 MS O3 D16 V10 F16"
6220 B$="V6 ML O2 F16 O3 F16 F8 MN D8 O2 B-8"
6224 C$="V6 O0 B-8 O1 F8 O0 F8 O1 F8"
6228 PLAY A$,B$,C$
6232 A$="V11 MN D8 D8 D32 E-32 D32 E-32 MS V12 D16 F16"
6236 B$="V7 F8 V9 F8 ML V10 F16 G16 V11 MN F16 D16"
6240 C$="V7 B-8 V9 F8 O0 V10 F8 V11 B-8"
6244 PLAY A$,B$,C$
6248 A$="MN D32 E-32 D32 E-32 MS D16 F16 MN D32 E-32 D32 E-32 MS D16 F16"
6252 B$="V12 F8 B-8 F8 B-8"
6256 C$="V12 B-8 O1 F8 O0 F8 O1 F8"
6260 PLAY A$,B$,C$
6264 A$="ML F16 E-16 MS C16 O2 A16 F8 V6 ML F24 G24 F24"
6268 B$="A8 O3 F8 F8 P8"
6272 C$="C8 O1 A8 A8 A8"
6276 PLAY A$,B$,C$
6280 A$="E-16 F16 MS A16 O3 C16 O2 ML V7 F16 V8 A16 V9 O3 MS C16 V10 E-16"
6284 B$="V6 ML F8 E-8 MN C8 O2 A8"
6288 C$="V6 O0 A8 O1 F8 O0 F8 O1 F8"
6292 PLAY A$,B$,C$
6296 A$="V11 MN A8 A8 A32 B-32 A32 B-32 V12 MS G16 E-16"
6300 B$="V7 F8 V9 F8 ML V10 F16 G16 V11 MN E-16 C16"
6304 C$="V7 C8 V9 F8 O0 V10 F8 O1 V11 F8"
6308 PLAY A$,B$,C$
6312 A$="MN F8 A16 G16 ML F16 E-16 MN D16 C16"
6316 B$="V12 F8 O3 C8 O2 A8 F8"
6320 C$="V12 C8 F8 O0 F8 O1 F8"
6324 PLAY A$,B$,C$
6328 IF TIME=2 THEN 6356
6332 IF TIME=3 THEN 6528
6336 A$="O2 B-8 B-8 B-8 V6 MS F16 E-16"
6340 B$="B-8 B-8 B-8 P8"
6344 C$="O0 B-8 O1 F8 F8 P8"
6348 PLAY A$,B$,C$
6352 IF TIME=1 THEN TIME=2:GOTO 6088
6356 A$="O2 B-8 B-8 B-8 P8"
6360 B$="B-8 B-8 B-8 P8"
6364 C$="O0 B-8 O1 F8 F8 P8"
6368 PLAY A$,B$,C$
6372 A$="V12 ML C24 D24 C24 O2 B16 O3 C16 D16 C16 O2 B16 O3 C16"
6376 B$="V12 E4 B-8 G8"
6380 C$="V12 O1 C8 O2 C8 O1 C8 O2 C8"
6384 PLAY A$,B$,C$
6388 A$="O2 V13 A16 O3 C16 MS V14 F16 A16 MN V15 O4 C4"
6392 B$="V13 F8 A16 F16 ML V14 A16 F16 MN G16 A16"
6396 C$="V13 O1 F8 O2 C8 V14 C8 C8"
6400 PLAY A$,B$,C$
6404 A$="ML O3 A16 O4 C16 MS O3 B-16 A16 ML G16 B-16 MS A16 G16"
6408 B$="V15 ML O3 C4 O2 B-4"
6412 C$="V15 O1 C8 A8 C8 B-8"
6416 PLAY A$,B$,C$
6420 A$="ML F16 A16 MS A16 G16 V14 ML F16 E16 V13 D16 C16"
6424 B$="A8 V14 O3 C4 V13 O2 F8"
6428 C$="F8 V14 A8 A8 V13 A8"
6432 PLAY A$,B$,C$
6436 A$="V12 ML C24 D24 C24 O2 B16 O3 C16 D16 C16 O2 B16 O3 C16"
6440 B$="V12 E4 B-8 G8"
6444 C$="V12 O1 C8 O2 C8 O1 C8 O2 C8"
6448 PLAY A$,B$,C$
6452 A$="O2 V13 A16 O3 C16 MS V14 F16 A16 MN V15 O4 C4"
6456 B$="V13 F8 A16 F16 ML V14 A16 O3 C16 MN A16 F16"
6460 C$="V13 O1 F8 O2 C8 V14 C8 C8"
6464 PLAY A$,B$,C$
6468 A$="ML O3 A16 O4 C16 MS O3 B-16 A16 ML G16 B-16 MS A16 G16"
6472 B$="V15 C8 O3 C8 O2 B-8 E8"
6476 C$="V15 O1 C8 F8 O2 C8 O1 C8"
6480 PLAY A$,B$,C$
6484 IF TIME=3 GOTO 6508
6488 A$="MN F8 F8 F8 P8"
6492 B$="F8 A8 A8 P8"
6496 C$="F8 C8 C8 P8"
6500 PLAY A$,B$,C$
6504 IF TIME=2 THEN TIME=3:GOTO 6372
6508 A$="MN F8 F8 F8 V6 O2 MS F16 E16"
6512 B$="F8 A8 A8 P8"
6516 C$="F8 C8 C8 P8"
6520 PLAY A$,B$,C$
6524 GOTO 6088
6528 'Trio
6532 A$="O2 B-8 B-8 B-8 ML V13 O3 P32 B-16 P32"
6536 B$="B-8 B-8 B-8 V13 B-8"
6540 C$="O0 B-8 O1 F8 F8 P8"
6544 PLAY A$,B$,C$
6548 A$="ML B-4 B-16 G16 MS E-16 C16"
6552 B$="ML E-4 G4"
6556 C$="V13 O1 E-8 G8 G8 G8"
6560 PLAY A$,B$,C$
6564 A$="ML O2 B-4 MN B-8 V10 O1 B-16 V8 A16"
6568 B$="B-16 G16 MN B-16 O3 E-16 V11 G8 P8"
6572 C$="E-8 G8 V11 G8 V8 G8"
6576 PLAY A$,B$,C$
6580 A$="V8 ML G16 B-16 MN O2 E-16 O1 B-16 ML G16 B-16 MN O2 E-16 O1 B-16"
6584 B$="V8 ML B-4 E-4"
6588 C$="V8 E-8 G8 O0 B-8 G8"
6592 PLAY A$,B$,C$
6596 A$="ML A-16 B-16 MN O2 D16 O1 B-16 MS A-8 V15 O3 MN A-8"
6600 B$="D8 MN B-8 B-8 P8"
6604 C$="F8 A-8 A-8 A-8"
6608 PLAY A$,B$,C$
6612 A$="ML A-4 A-16 F16 MS D16 C16"
6616 B$="V13 O2 ML D4 E-4"
6620 C$="V13 O0 B-8 O1 A-8 A-8 A-8"
6624 PLAY A$,B$,C$
6628 A$="ML O2 B-4 MN B-8 V8 ML B-24 O3 C24 O2 B-24"
6632 B$="ML D16 F16 MN B-16 O3 D16 F8 P8"
6636 C$="O0 B-8 O1 A-8 A-8 A-8"
6640 PLAY A$,B$,C$
6644 A$="ML O3 D24 E-24 D24 E-24 O2 MN A-12 ML O3 D24 E-24 D24 E-24 O2 MN A-12"
6648 B$="V8 ML O2 B-4 F4"
6652 C$="V8 O0 B-8 O1 A-8 O0 B-8 O1 A-8"
6656 PLAY A$,B$,C$
6660 A$="ML O3 C16 O2 B-16 MS G16 E-16 B-8 V13 O3 MN B-8"
6664 B$="G8 MN O3 G8 G8 O2 V13 B-8"
6668 C$="E-8 P8 B-8 V13 G8"
6672 PLAY A$,B$,C$
6676 A$="ML B-4 B-16 G16 MS E-16 C16"
6680 B$="ML E-4 G4"
6684 C$="O1 E-8 G8 G8 G8"
6688 PLAY A$,B$,C$
6692 A$="ML O2 B-4 MN B-8 V10 O1 B-16 V8 A16"
6696 B$="B-16 G16 MN B-16 O3 E-16 V11 G8 P8"
6700 C$="E-8 G8 V11 G8 V8 G8"
6704 PLAY A$,B$,C$
6708 A$="V8 ML G16 B-16 MN O2 E-16 O1 B-16 ML G16 B-16 MN O2 E-16 O1 B-16"
6712 B$="V8 ML B-4 E-4"
6716 C$="V8 E-8 G8 O0 B-8 G8"
6720 PLAY A$,B$,C$
6724 A$="ML A-16 B-16 MN O2 D16 O1 B-16 MS A-8 V13 O3 MN A-8"
6728 B$="D8 MN B-8 B-8 P8"
6732 C$="F8 A-8 A-8 A-8"
6736 PLAY A$,B$,C$
6740 A$="ML A-4 A-16 F16 MS D16 C16"
6744 B$="V13 O2 ML D4 D8 MN E-8"
6748 C$="V13 O0 B-8 O1 A-8 A-8 A-8"
6752 PLAY A$,B$,C$
6756 A$="ML O2 B-4 MN B-8 V8 B-8"
6760 B$="ML D16 F16 MN B-16 O3 D16 F8 P8"
6764 C$="O0 B-8 O1 A-8 A-8 A-8"
6768 PLAY A$,B$,C$
6772 A$="ML V8 B-24 O3 C24 O2 B-24 V9 A16 B-16 V10 B16 O3 C16 V11 C+16 D16"
6776 B$="ML V8 D8 V9 C8 O2 V10 A-8 V11 F8"
6780 C$="V8 F8 V9 A-8 O0 V10 B-8 O1 V11 A-8"
6784 PLAY A$,B$,C$
6788 IF TIME=4 THEN 6812
6792 A$="MN E-8 E-8 E-8 MS V13 B-8"
6796 B$="MN E-8 O3 E-8 E-8 O2 V13 B-8"
6800 C$="E-8 E-8 E-8 P8"
6804 PLAY A$,B$,C$
6808 IF TIME=3 THEN TIME=4:GOTO 6548
6812 A$="MN E-8 E-8 E-8 P8"
6816 B$="MN E-8 O3 E-8 E-8 P8"
6820 C$="E-8 E-8 E-8 P8"
6824 PLAY A$,B$,C$
6828 COLOR 7,0,0:CLS:RUN 10
6832 'Notes
6836 TIMER OFF
6840 X1 = INT(RND*319):Y1 = INT(RND*191):X2 = INT(RND*319):Y2 = INT(RND*191):C1 = INT(RND*16)
6844 LINE (X1,Y1)-(X2,Y2),C1,BF
6848 COLOR INT(RND*15)+1, INT(RND*16)
6852 LOCATE 24,INT(RND*40)+1:PRINT CHR$(14);
6856 LOCATE 25,40:PRINT
6860 TIMER ON
6864 RETURN
7000 CLS:KEY OFF:SCREEN 2'DAVROS DOWNLOADS C/G TITLE SCREEN
7010 LINE(177,73)-(250,104),1,B
7020 X=250:Y=74:FOR T=1 TO 7:LINE(178,Y)-(X,74),1:X=X-12:Y=Y+5:NEXT T
7030 FOR T=1 TO 10:READ X,Y:PSET(X+8,Y+4),1:NEXT T
7040 DRAW"BM255,73NR10D19R10M+9,-1M+7,-3M+3,-3M+1,-2U1M-1,-2M-3,-3M-7,-3M-9,-1BM267,76L6D13R6M+5,-1M+3,-2M+2,-2U3M-2,-2M-3,-2M-5,-1"
7050 DRAW"BM291,92L7M+15,-19R6M+15,+19L7M-5,-8L12M-5,+8BM305,81L6M+3,-3M+3,+3 BM312,73M+15,+19R8M+15,-19L7M-12,+15M-12,-15L7BM355,73D19R7U16R8M+4,+1M+2,+2D1M-2,+2M-5,+1L1G2D1M+3,+1M+6,+5R7M-8,-7NL3M+4,-1M+3,-2M+1,-1U3M-1,-2M-3,-2M-11,-1L11"
7060 DRAW"BM404,73M-7,+1M-5,+3M-3,+3M-1,+2D1M+1,+2M+3,+3M+5,+3M+7,+1R1M+7,-1M+5,-3M+3,-3M+1,-2U1M-1,-2M-3,-3M-5,-3M-7,-1L1BM404,76M-4,+1M-3,+2M-1,+1M-1,+2D1M+1,+2M+1,+1M+3,+2M+4,+1M+4,-1M+3,-2M+1,-1M+1,-2U1M-1,-2M-1,-1M-3,-2M-4,-1"
7070 CIRCLE(440,78),14,1,.4,4.71,6/16:CIRCLE(440,86),8,1,4.71,1.57,5/16:DRAW"BM440,89L1M-5,-1M-3,-1M-3,+2":CIRCLE(440,86),15,1,3.8,1.57,6/16:CIRCLE(440,78),7,1,1.57,4.71,5/16:DRAW"BM440,76R3M+4,+1F1M+4,-2"
7080 LINE(254,94)-(455,94):LINE(254,104)-(455,104):LOCATE 13,33:PRINT"D  O  W  N  L  O  A  D  S"
7090 SOUND ON:PLAY"MFMLO3L16V15G8V14GV13GV12GV11GV10GV9G>V15G+8V14G+V13G+V12G+V11G+V10G+V9G+V15G8V14GV13GV12GV11GV10GV9GV8GV7GV6GV5GV4GV3GV2GV1GP1P1":PLAY"MBMN":CLS:RETURN
